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>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Module: Command J3r i ver 
> 

> This module controls the way in which commands receiued by 

> the Host are executed. It's main responsibility is to determine 

> whether a command string is protected by a check byte ( the 

> original Profile commands are not > and then decode the command 

> and pass control over to the correct driver routine to 

> execute the command, fill exception handling at this level is 

> controlled by the individual command routines. 
> 

> PROCEDURE StartJCommand 

> PROCEDURE Pro_Read 

> FUNCTION ReadJCommon : BOOOEfiN 
> 

>>.>>>>>>.^ >>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO External 
.LSTON 
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> 

> Procedure: Start_Comroand 

> Inputs : Assumes a command string in external memory; the 

> command byte must be in location $0000 (external > 
J. 

> Algorithm: 

> BEGIN 

> initialize Internal and external stack ptrs 

> ZeroHeader 

> Excpt-Stat.&ifJDaroage := False 

> ExcptJStat.Nzero_Stat := False 

> IF < Cache_ Index >= Cache_Length > 

> THEN Cache-Index := 

> Opcode := ExtMemI 3 

> IF OpCode.CommandType is FreeProcess type 

> THEN goto Strt_FreeProcess 

> IF OpCode.CommandType is protected by a checkbyte 

> THEN 

> IF NOT< CheckJCommandJString > 

> THEM Abort< CmndJ3river_Exception, 

> StartJCommand^ CheckByteJIismatch > 

> IF < OpCode. Instruction > 

> CommandLimitC CommandType J > 

> THEN Abort < CmndJ>iyer_Exception 

> StartJCommand, M legal OpCode, Opcode ) 

> JttP fCommand'C CommandType 1. Rout i neTab I e [ Instruction 3 

> END 
> 
>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 

.FIN 

-DO Internal 

.LSTON 
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.FIN 



StartJCommand: 








Srp 


*WrkJSys ;get into a reasonable state 




CIr 


Sph 




Ld 


Spl,«Stack_Top 




Ld 


!r2,«.HIBVTE. StackPtr ;mit external stack 




Ld 


!r3,«.L0WBVTE. StackPtr 




Ld 


1 rO, « . H 1 BVTE . TopOfStack 




Lde 


e!!r2JrO 




Incw 


!!r2 




Ld 


!rO,«.LOWBVTE. TopOfStack 




Lde 


§llr2, !rO 




Cp 


Cache- 1 ndex , *CacheLeng th 




Jr 


Lt,StJ_oadJCmnd 




CIr 


Cache_ Index 


St l-oadJCmnd : 


Ld 


!r2,«.H!BVIb. Cmnd_Ptr 




Ld 


!r3,».L0MBVTE. CmndJ^tr 




Ld 


!rE,«.HIBVTE. CStatus4 




Ld 


! rF , « . LOWBVTE . CS tatus4 




Ld 


!r1,*8 jffiove 8 bytes 


Si 1 Ip: 


Lde 


Ir0,&llr2 




Lde 


§! !rE, !rO 




Incw 


!!r2 




!ncw 


!!rE 




Djnz 


«r1,StJL_Lp 


Strt 7H: 


Ld 


!rE,«.HIBVTE. CStatus4 




Ld 


lrF,». LOWBVTE. CStatL4s4 




Lde 


Ir4,§l !rE 




Ld 


lr&, !r4 




Rnd 


!r6,*Cn>ndType 




Cp 


!r5,*$F0 ; check for 'free bus ciDfumand' 




Jr 


Nz, StrtJChkDiag 




Ld 


lr2,«.HtBVJt. Strt_FreeProcess 




Ld 


! r3, « . LOWBVTE . Str t_FreeProcess 




Call 


Bar*iJCal 1 


StrtJChkDiag: 


Cp 


!r6.*$10 ; check for diagnostic cominand 




Jr 


Mz.StrtJSwap 




Ld 


!r2,«.HIBVTE. Set SeekNeeded 




Ld 


!r3,«. LOWBVTE. SetjSeekHeeded 




Call 


Bank._JCal! 




Ld 


Seek_Ty pe , *ficcessJO f f se t 


Strt Rwap: 


Swap 


!r6 ;r6 := CoromandType 




Jr 


Z,Chk_lnst ;j«n>p If no check by 




Ld 


!r8, !r4 




find 


lr8^*$0F :get length of command string 




Incffl 


1 IrE ;get opcode 




Lde 


!r4,g}!rE 




Ld 


!rE,«.HIBVTE. Crand_Ptr 




Ld 


!rF,«. LOWBVTE. Crond-Ptr 




Calf 


ChkJChk_Byte 




Jr 


Z.Chk-lnst 



Call 



Abort 



Chk^lnst: Cp 
Jr 

Or 
Jr 

Cp 



Call 

ChkJ-iroits: Ld 
Ld 
Add 
fide 
Ldc 
Ld 
Cp 
Jr 

lnst_flbort: Call 

Ok_lnst: Ld 
Ld 
R! 
Add 
ftdc 
Ldc 

I new 

Ldc 

Ri 

Add 

fide 

Ldc 

I new 

Ldc 

Jp 
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>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Command Routine Tables 
J, 

>>>>>>>>>>>>>>>>>>>>>>>> 



! r6, *!1ax_Cmnd_Types 
Gl, lnst_flbort 



; check for i I legal type 



SlfTst_Besult,SlfTst_Be£ul t ; check if uie're not healthy 
Z,ChkJ.imits 

!r6,*01 ;only allow diagnostic commands 
Z^Chk-Llmits 

Abort 

!rE,«.HIBVTE. Cmnd_Liroit£ 

!rF,«.LOWBVTE. Cmnd_Limits 

IrF, !r6 jget offset into table 

!rE,«0 

'rO.eilrE 

!r1Jr4 

IrlJrO 

Le.Ok_!nst 



;get limit 

;get instruction 

jjurop If legal Instruction 



Abort 

rE , « . H I BVTE . Cmnd_P trs 

rF , * . LOWBVTE . Cfflnd_P trs 

r6 

rFJr6 

rE,»0 

rC,e II rE 

rD,e!!rE 

rD, !r1 
rC,«0 
rE,§!!rC 
!rC 

rF,il!rC 
g'rE 



;get offset into table 
;get inst routine ptr 

;get offset into table 
;get address to routine 

;jump to routine 



CmndJLimi ts: 


.DB 
.DB 
• DB 


ProJCmnds 

DiagjCmnds 

SysJCmnds 




Cmnd_Ptrs : 


.014 

.m 
.m 


Pro_lnst 

Diag_lnst 

Sys_lnst 




Pro_lnst: 


.DU 
.DW 


Pro-Read 

Pro_Write 

Pro_llrUer 




Diag-lnst: 


.DW 
.DU 
.DW 


D_FJead_lD 
ReadjCStatus 
ReadJSStatus 
Send JSerybCmnd 


;cfflnd 
;cffind t 
;cmnd 2 
;cmnd 3 



DU 


SendJSeek 


DM 


Send-Restore 


DU 


Set-Recovery 


DN 


$000C ; Soft-Reset 


DU 


Send_Park 


DU 


D-Read 


DU 


D-ReadHdr 


DU 


D-Urite 


DU 


Stc«re_hap 


DU 


D-Read SprTbl 


DU 


Wr_SprTbl 


DU 


Format 


DU 


D_!nitSprTb! 


DU 


ReadJRbort 


DU 


D-RstSrvo 


DU 


Scan-Uector 


DU 


Sys-Read 


DU 


Sys_Write 


DU 


Sys-UrU 



;cfftnd 4 




;cffind 5 




;cmnd 6 




;cmnd 7 




;cmnd 8 




;cmnd 9 




jcmnd fl 




;c!nnd B 




;cmnd C 




;cmnd D 




;cfflnd E 


+ password 


;cinnd F 


+ password 


jcmnd 10 


+ password 


; cmnd 1 1 




;ci»nd 12 




round 13 





Sys_lnst: 



.LSTOFF 

-DO External 

.LSTON 
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> 

> Procedure: Pro_Read { Profile Piead > 



> This procedure emulates a Profile read operation. 
> 

> Inputs: { none ) 
> 

> Outputs: { none ) 



Local Uariables: 

BlockStatus : BVTE 
BlockHumber : 3 



{ Ir4 > 

*' !rC:E > 



Global Uariables Changed: 
Log i CO I B I ockMumber 

fl I gor f thro : 

BEGIN 
ClearStatus 

LogicalBlockNumber := Comroand. Logical BlockNumber- 
flck_Read( Pro-Read-Response > 
B I ockType J, B I ockMumber- : = 8e t_Type< Prof i I e > 
Seek^Type := Recess { Seek without flu to-Offset } 
SearchStatus. Element. Ptr := OverLappedSeek'' Readj, BlockType. 

Blockliufflber^ > 
IF NOT< ReadJCororaon > 

THEM Data_£x-Handler< Read JCommon . Error Type > 
ELSE 
IF < BIkStat.SprCode = Bad_Block > 
THEM 

BlockMove< Buf2Rrray.. RDummy > 
DataJExJHandler< SpareBlock ) 
!1oye4<: Statusflrray, Status > 
Clr_Bsq< Statusflrray > 
END 



>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

•DO Internal 
.LSTON 
.Page 
.FIN 



ProjRead: 



Ld Urk_lo+$fl,«Read_Response 
Co 1 1 flck_Read 



Call 



C I r-NormStat 



Pro_Rd_E>«it: 



Ld ! r-0, «ProJ_ogJOf f set 

Ca 1 1 Ld_Lgc I B I k; Log i ca I B I ockNumber : = 

Ld !r8,«Profile 

Ld !r2,«.HIBVTE. 6et_Tqpe 

Ld !r3,«.L0WBYTE. Get_fype 

Call BankJCall 

Cp !r8,#SprTb!_Type 

Jp Z^ReadJSprTbl 

Cp !r8,«ID_Type 

Jp Z,Read_ID 

Ld Seek_Type . «flccess 

Ld Da ta_Type , *U£er -Type 

find Disks tat, «$FF-MrJOp 

Ld !r2,«.HIBVTE. OverLap 

Ld !r3,».L0WBVTE. OverLap 

Call BankJCall 



Cal 
Jr 



ReadJCommon 
2, ProRd_Err 



Tm BlkStat,*B_Bloc:k ; check if block read mas a bad block 
Jr 2 . Rd_LeciMe 



Pro_Rd_BB: Ld !r2,«.HIBVTE. RBuf_To_Buf2 

Ld !r3,».L0WBVTE. RBuf_ToJBuf2 

Call BankJCall 

Coll RdJSprBlock 

ProRd_Er-r: Call Data_Ex_Wandler 

Rd_Leay e : Ld Mrk_ I o+$ft , * I n I t_J!lesponse 

CIr Wrk_lo+$B ;Cinnd-Pending, IBsy := False 

Rd_LeaMe2: Call LdJStand_Stat 

Fid-Leave 1: Ld Mrk_lo+$C,«.HIBVTE. Statusflrray 

Ld Mrk_lo+$D,«.LOWBS^TE. Statusflrray 

Jp CIrJBsy 



LdJStandJStat: Ld 

Ld 

Ld 

Ld 

Call 



»r2,«.HIBVTE. CStatusO 
!r3,«.L0WBVTE. CStatusO 
I rE, » . H I BVTE . Statusflrray 
!rF,».LOWBVTE. Statusflrray 
l1oye4_B0 



Ret 

.LSTOFF 

-DO External 

.LSTON 
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> 

> Function: ReadJCommon 
> 

> This procedure is responsible for al ! the cominon functions 

> performed by all the read commands. 
> 

> Inputs: { none } 
> 

> Outputs: 

> ReadJCommon : BOOLEflM { zero flag, true if data exception } 

> ErrorCode. Error : BOOLEAN { !rO/Bit 7 > 

> ErrorCode. Type : 7 BITS { !rO/Bits 6:0 > 
> 

> Local Uariabies: 

> Retry : BVTE { !r5 > 

> ErrorCode : BVTE { !r4 } 
> 

> ftlgorithm: 
> 

> BEGIN 

> ErrorCode . Error := False 

> IF HOT< ReadBlock ) 

> THEN 

> ErrorCode . Error := True 

> Ert-^rCode . Type := Undetermined 

> IF Recovery 

> THEN 

> IF ServoError OR NoHeaderFound 

> THEN 

> ErrorCode . Error := False 

> Retry := 4 

> REPEAT 

> THEN 

> ServoRecovery 

> Retry ;= Retry - 1 

> UNTIL NOT< Retry = > OR ReadBlock 

> IF NOT( ReadBlock > 

> THEN 

> ErrorCode . Error := True 

ErrorCode . Type := Undetermined 

> IF ServoError 

> THEN 

> SetStatus< ByteO, Status_ServoError ) 

> Abort 

> IF NoHeaderFound 

> THEN ErrorCode. Type := BadBlock 

> ELSE 

> IF < ErrCnt > > 

> THEN 

> IF < ReadErrorCount > 2 > AND 

> < ReadErrorCount < 10 > 

> THEN ErrorType := ^sareBlock 

> ELSE 

> IF ( ReadErrorCount = 10 5 

> THEN 

> IF Ecc 



> THEM ErrorCode . Type := SpareBlock 

> ELSE ErrorCode . Type := BadBiock 

> ELSE ErrorCode . Type : = ReadError 

> ReadJCommon := HOTC ErrorCode . Error ) 

> END 
> 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 
.FIM 



ReadJCommon : 



Internal 



.LSTON 
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.FIN 



find D i skS ta t , «$FF-WrJOp 

CIr !r4 

Cal I ReadBlock 

Jr Nz,RdJCmn_End 



Ld 



Ir4 *RdError : ErrorCode := Error. Undetermined 



Tffi Excpt_Stat^*Recovery ; IF Recovery THEN . 
Jr 2, RdJCmn_£nd 



Ld 



!r5,«4 ; Re try := 4 



RdJCmnJ-p: Tm RdStat,«RdSrvoErr + RdNoHdrFnd 

Jr Z.RdJCmnJCrct 

Ld !r2,«.HIBVTE. SrvoRwry 

Ld !r3,«.L0WBVTE. SrvoRcvry 

Call BankJCall 

Call ReadBlock 

CIr !r4 

Jr Nz,RdJCmn_End 

Djnz !r5,RdJCmnJ_p 



Rd_Cmn_Seryo: 



Tffl RdStat,«RdSryoErr 

Jr Z,RdJCffin_Hdr 



CIr IrO ;Byte 

Ld !rt,«StatJSrvo 

Cal I SetStatus 

Cal I Abort 

Rd_Cmn_Hdr: Tm RdStat,«RdNoHdrFnd 

Jr Z,RdJCmnJCrct 

Ld ! r4 , «Error+Ex_HdrBad 

Jr RdJCmn_£nd 



RdJCmn_Crct: Ld IrO.RdErrCnt 

find 1 r J «$0F ; mask off un»jan ted s ta tus 

Cp »rO,*SprThresh 

Jr Le,RdJCmn_RdErr 

Cp !rO,«10 

Jr Z,Rd_BadBlock 

RdJSprBlock: Ld lr4,*Error+Ex_SprBlock 

Jr RdJCmn^nd 



RdJCmn-ftdErr : 

Rd_BadBlock: 
RdJCmn-End: 



Ld I r4 , *Error+Ex JReadEr r 

Jr RdJCmnJEnd 

Ld I r4 , «Error+Ex_BadB I ock 

Ld !rOJr4 

Tcm ! r ^ «RdEr r or 

Jp Bank_Ret 



LSTOFF 



